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97 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
*—* S OF LAST I/O + 4 BYTES 
QOSEAR COIR DeDe4 4330 De (GGA re ae ee 0030E4 0000 1338¢DEVT. De oR faoe DEVICE DEPENDENT DATA 
— K 
O02E6h D4CID7IF7TF8FOF840C 1222 sounes ua €L0024' MAP 7808 FOR MORE TESTING! 003086 9090 1339+DEVZ DC A ae : 
‘ + A (*-* * 
JOsER gore 1358 De ATédooy > OO 305n he dona cones FOU DEV1 PFAD ID BUFFER FOR IBIS & TERN 
§osneG cops 133¢e ifs sey 32) PARITY ERROR! 0030EC 1343+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 
Meats oe 1338 te (0042) 0030EC 0000 13444+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 
KK 
OO2Z2E9E DT7D6EE6C5SD94OD6D54 1228 DC CLOO42"POWER ON THE 4962, WAIT 16 SECONDS AND RUN! 003088 9600 peace DC A ee Tee pee wa are. Dey BeeraGeD 
DOsecR  DRes 1336 De RETA ING! 0030F2 0000 1347+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
eae pACME TET BOROEGHOS 1334 F00240 EOU Tana Spe ee eee anon ae 0030F4 0000 1348+DCB5 DC A (*-* LAST DCB TABLE, DEY DEE WORD 
A (*-* LAST DCB TA 
SOSEEs 000k 1333 DE R(OGOB) 0030F8 0000 1350!DCB? DE oR teoe LAST DCB TABLE, BYTE COUNT 
Kam K 
002EE6 C2 Bu E2E8 1238 be 1.90944 Bust 0030FA 0000 13213 DCBB DC A LAS ; 
* CYCLE STEAL DATA BUFFER 
ahs {i aaa eee toe 1339 De Sut ee nce nee es BO 30 Fe 0000 izeptceney ta A (*#-* CYCLE STEAL BUFFER, BESTDOAL ADPS 
*-* CYCLE STEAL WD 
OO2FO4 DTD6E6CSDOYOD6D54 1238 DC ¢10045% POWER ON THE 4962, WAIT 16 SECONDS AND RUN! Hee et aaee cea s He : ote eee STEAL WD 3° DEVICE DEPEND 
O03FS0,  Dacd 1330 DE Se tETe TING? 003102 0000 1357+CSTL4 DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 
002F30 D4&CIDIF7TF8FOF840C 1240 DC CLOO24"*MAP7808 FOR MORE TES Geatan oppon doe cane oe es, CEGLE SRERL GD Gr DEVICE DEEERD 
ie: ono Be ; 003106 0000 1359+CSTL6 DC A (*#-* CYCLE STEAL WD 6, DEVICE DEPEND 
Osean pp93 134% Be atodooy 003108 0000 1360+CSTL7 DC A (*-* CYCLE STERL aD ge crete DEPEND 
*x— *& 
Boer es CAdSESCSDICECICIC 1288 DC C100 22¢1NTERFACE PARITY ERROR! 00310A 0000 1361 sCstLs DC A CYCLE ST ; 
*-* LAST SUBROUTINE ADDRESS USED 
Bao eae pideEccSDoNODEDSa 1246 be C1OGG2% POWER ON THE 4962, WAIT 16 SECONDS AND RUN! 90310¢ 9000, 1363+$SUEN te 2h feo3 SBETOnRE BATA se 
' | 
GOorkG. «None eGoNee) tou. sec oe BORE TESTI AGe 003444 0000 I3eCTURTH DEA (ROE TEST ONT? RETURN ABRS 10 aD7 
+ ID pC x*00008 DEVICE I 
iets QOOE 1384 De A(OOVu) ERE: 9 ODO ETT ORT TERY DC eee eo) ADRS OF DEVICE ADDRESS 
KK 
OO 2FAC Ca DGDADACDSC4 SOD 1292 DE Rieees REJECT? 00311A 0000 1363+ | DC A ) IBIS CY 
rE * L RETURN TO MDI WITHOUT DOING ANY PROGRAM 
O0SF BS ies aeeeaabaaiia 1385 De 100224 nor Pe ene ay oer Waate FUNCTION. THE PESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
002FD4 DIDGEGCSDO4ODEDS 4 1238 DC Tico ON THE 4962, WAIT 16 SECONDS AND RUN! hand STILL VALID BUT A DIFFERENT TEST IS TO BE PERFOPMED. 
565 x! ' UP TEST UNIT ID 
ae D4UCIDTIFT7F8FOF840C 1238 ehasee Bot CLOO24"HAP7808 FOR MORE TESTING! 903116 4020 30DC 3cC02 1375+T3C02 MVET ea ,STUID SET OE TEST UNIT ID 
peaone Bate Noes Re A (6022) 4378 IEEE ESO SOE IAEA EATER AA 
* 
03035 jor 1364 De Serif" es veamapnensenta sd eae ce 1384 * EQUATED NAMES FOR SUPPORTED SVC'S : 
Here Dog ero ye ter ones ieee ate C0042) POWER ee na ORe waty eS eCOND>: AND aN Aes 5 RRR 5d a a he 
DOah Tg) ree Tr ernEONOC! Aca egaun(: ppm “etre Suton Hom OND EsEsaC! 289985 1365 Suszw Ee eur Svc 
IDLE svc 
Q0307R 0092 15¢9 DE -A(O0 18) > 900003 1389 ASCII EOU | 4 HEX TO ASCII SVC 
Soaq7e 7NTe 1396 D (00 Sveveenorees IS NOT VALID.' 000004 1388 CHNGE EOU 4 CHANGE LEVEL SVC 
S0306E. ee eee eae EC rs ; : 000005 1389 PGMCK EQOU 5 ALLOW RETURN ON PROGPAM CHECK SVC 
00308% A edna be. 0 0000056 1390 EXIT EQU 6 EXIT svc 
503095 tie 1343 ite A(00u2) 000007 1391 TERM EOU 7 PERO INETE AVC oe 
Peeoee DIDEEGCSDI4ODEDSS 12i8 BC Gloss ON THE 4962,WAIT 16 SECONDS AND RUN * ppgges uae BESET zou 8 RESET DEVIC : 
START CYCLE STEAL SVC 
SEI A MAST OTE Een Ee 1345 HDIT wie Pere Geena joo008 1398 eres EOU 14 START CYCLE STEAL STATUS SVC 
PREPARE DEVICE S 
0030D6 0000 12 12sOPTN1 DC X¥* 0000! PROGRAM OPTION CONTROL WORD 1 pede ee PREE Bou 12 PREP ian rugert0x err ; OFF _StC 
4 READ WITH F 
0030D8 0000 1281+0PTN2 DC ae ss, PROGRAM OPTION CONTROL WORD 2 900008 oe ReaD Eu A ee 
138 4t 6 O° 8 PROBLEM PROGRAM CONTROL BITS 000010 1400 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
OORT eet: et 19 1 mM * 000011 1401 WRIT1 EOU 17 yErae WITH FUNCTION BIT 3 ON SVC 
R EOU 18 CONTROL 
300013 1apetBet Su 19 5 4 * SECOND ODTION WD AND. GRE TO 080013 1403 RICE EOU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
ten Me E5u 20 i 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 es CICB EOU 20 SONAECT CNT SRORT CONTROL BLOCK SVC 
$000 42 1D89tBea EOU 34 C 3 * oobode 1402 Hsp a 22 REQUEST USE OF DCP DISK SVC 
S000T7 13901085 FOU 34 § 1 * 000017 1407 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
EQU 2 
tte 13393829 ett oe 5 f * Mees 1405 ETOH EOU 25 EBCDIC TO HEX SVC (STRING 
Mee 1394tbRg ay 2° 6 2 * 00001A 1410 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
MEE: ETeete: aa 36 1 1 * 00001B 1411 ATOH EOU 27 ASCII TO HEX SVC (STRING 
Oooo de 1338t828 eeu 24 13 8 * 00001C 1412 HTOA EOQU 28 HEX TO ASCII SVC (StriNe 
00045 138erbes Eau 28 13 4 * 00001D 1413 ETOA EOU 29 EBCDIC TO ASCII SVC (STRING 
atone 1eastne ty 23 18 * OO001E 1414 ATOE EOU 30 ASCII TO EBCDIC SVC (STRING 
tees 133 ar bes Eau 39 is 4 * 00001F 1415 READI EQU 31 READ DATA SETS FOP MDI/UTIL 
OOOO 4E Woggtce. rou 39 1 RACTER SUPPLIED 000020 1416 WRITI EOU 32 WRITE DATA SETS FOR UTIL 
TEE: Ss eaoscue att Be bh San OAGE OPERATION 1418 laiaiinlindaiiniiieialiaedaieheiiiahiainiiaiiaiaea ete eee eees 
. * 
0O30DA 0000 130 24 OPTN3 DC xX¥'0000' PROGRAM OPTION CONTROL WORD 3 ee : EsgRTEe USER AR OTe. Ae OReGRIS . 
1304+* 0 MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cS 1421 * : eT rE ie: 
R EP 9g CS AVATLABLE CSA VOD D He RR Ha ie 2 ok he fe oe a a eo he oe oe 2 a 2 2 aK i ie oh oe 2 0 fe ok te 2k oe 2k 2c 
1302s ; EXPECTED INGERRUPT XT 10 CS STATUS INTERRUPT ERR CE OOOO4E 1423 FLGS _ EQU i PLUS CHAR. 
seers 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON pono. ee ene Eu C 
+ 
000001 1427 ONE EOU 1 
130er $ HRESCERROE"EGRND'” EE 13 GFS™CENERRgESTETS V7 BSc 009993 143d us | Ey 
1311+* 6 WRONG INTR LEVEL SLE 14 WO INTERRUPT NOIN 000003 129 THREE EGU 3 
V3i2ts 7 NO INTR EXPECTED aut 15 INTERRUPT CC ERROR INcCC 900008 Cee EQu : 
R HAPPENED 000006 1432 STI EQU 6 
000034 13 \gseR sate 33 t i EREOR RECEIVED DH ONTEPRUPT 000007 1433 SEVEN EOU 7 
000022 13164+XT EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 1434 EIGHT EQU 8 
000023 1317+IN EOU 35 3 1 INTEPRUPT RECEIVED CONTROL BIT 000009 1435 NINE EQU 9 
024 1318+XE EQU 36 4 8 EX FECTED ERROR RESPONSE OOOOOA 1436 TEN FOU 10 
0005 1319+HE EQU 37 5 4 HARD ERROR RETRIES 00000B 1437 ELEVN EQU 11 11 
S0003e 1320+$LE EQU 38 6 2 INTERRUPT n° WPONG LEVEL EPROR 00000C 1438 TWELV EQU 12 12 
000055 13214NI EQU 39 7 1 NO INTERRUPT EXPECTED E 00000D 1439 THRITN EQU 13 13 
500038 1322 EQU 40 8 8 CYCLE STATUS IN PROGRESS 00000F 1440 FIVIN EQU 15 15 
00059 1355468 act 44 9 mT CYCLE STEAL AVAILABLE 000010 1441 STXTN EOQU 16 16 
0000SK 13244C Bou 42 10 2 CYCLE STEAL STATUS INEPRRUPT ERROR Deas re THEY? Bou 32 32 
0003e 1a06e 200 nf 12 4 Teer UNET RE burs NO GOOD 000080 1444 ONE28 EQU 128 128 
000035 13274 TOCC EOD 45 13 4 OIO CC ERROR Goo 108 ene THOSE aoe 236 256 
S000SF 12302 T NCO FOU 49 1s ; ADE VRHEE Ee ERROR 000800 1447 TWOK FOU 2048 2048 
vee 13300k Eee oe 000C00 1448 THREK FOU 3072 3072 
13313 COMMON BUFFER FOR PRINTING DATA ootoe es EOuPE bod os 30 
+ 
- FFFFFE 1452 M2 EQU -2 -2 
0030DE 0000 1335sS8TOIN DC || RRO# T/O AND INTP CONDITION CODES FRFFFD 1453 #3 EGU =3 =3 
0030EO 0000 13364+SISB DC A (*-* R7, INTR STATUS BYTE & DEV ADPS FFFFFC 1454 Mu EO 
\ \ \ ‘ ; ~ *y “y \ N * ‘ ~ < a AS 
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LOCTR OBJECT TEXT STNT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 
1456 PSPSPS SSS SS ESE SSS SPSSSS SESE SSSSSL SP SSC SSeSLS SSL SLPS SS SSS SS 0031A8 4024 254C 1571 MVWI x*254c! RO INITIALIZE THE COUNT FOP 2 SEC 
0a) * i each eal 0031AC 6002 1572 1777 SVC IDLE” TIME OUT 2 SEC 
1458 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * VOSTRE: BORE ae geek, : 

1460 * PE TO) Bien eee UN. SRE BORD OY ewe OUeee : 0031B0 6802 34A4 1575+ B $CONX RETURN TO MDI CONTROLLER 
CHG 1 KESRER EEK EKESEERES AA EMRE EASES AED RAE AS WEAK ORES ROR Ke ea AEK EERE Oe ee 157 6 +O OIRO IORI III III IOI II III IOI ICI TORII EC IROR SOR Rf foi tototo 
000000 1462 BSO FOU 0 1577 COPY tT78DCB O1DEC76 
000001 1463 BS1 EQU 1 1578 ** (T78DCB) 
ee 1464 BS2 EOU 2 eae re gee RE Reg ee CTO Ge ee ge ere pare ee eA Mase ne eee 
1465 BS3  -EQU 
900004 1466 BSi EU i 1581 * DCB TABLES AND DC'S 
Ben oS 1468 Bee EOu 2 Nee PPPS SSS SESS S SES PLS SES LSS SEL SLE SE SSL SSE SSL S SSE SELES SS SESE SSE SESE SEE SS SEE SF | 
1469 BS7 EQU 7 * 
000008 1470 BSB EOU g 1585 ***#k DIAGNOSTIC DCB ****eKes 
000009 1471 BS9. EQU 9 1586 * 
O0000A 1472 BS10 FOU 10 0031B4 2008 1587 DGDCB DC x'2008! DIAGNOSTIC DCB 
000008 1473 BS11 EOU 11 0031B6 0000 1588 DC X'0000! NOT USED 
00000C 1074 BS12 EOU 12 0031B8 0000 1589 DC a (+ *) 0-7 = PHYSICAL SECTOP # MINUS ONE 
00000D 1475 BS13 EOU 13 0031BA 0000 1590 DC X*0000! NOT USED 
OOOO0OR 1476 BS14 EOD 14 0031BC 0000 1591 DC X*0000! NOT USED 
00000F 1477 BS15 EOU 15 0031BE 0000 1592 DC A (*-*) CHAINING ADDRESS 
1479 COPY 17800 01DEC76 0031C0 0100 1593 DC X'0100' BYTE COUNT 
1480 77800 TUTT 1 0031C2 0000 1594 DC A (#-*) DATA ADDRESS 
DEG) EPERED PEPEALEN TENT SSNS R ERT SARE SNE ALES REE RE SENSES SE REAT NAS OCRRECOCE ETO SS Vege : 
+ 
14834+* TEST UNIT 1597 **#k* RECALIBRATE DCB ***#kK Kx 
steers 0031c4 0007 1299 CLDCB DC 100078 P 
+* DIRECT PROGRAM CO Xx -ECALIBRATE DCB 
14864% NLROL TESS “ONET 12/1/76 0031C6 00000000000000000 1600 DC = TA (#=*) 
1487+* PURPOSE 1601 * 
1488+ 1902 #*4%* WRITE SECTOR ID ** 
+ THREE PARAMETERS A 
1490%% PE NEEDED FOR THE EXECUTION OF THIS TU AND ARE 9031D4 9902 1608 WSDCB DC _ x100021 GERTZE SECTOR ID CONTROL WORD 
+ - ONE BYTE OF FUNCTION-MODIFIER,IE, X'60' FOR PR 
1492+% 2. TWO BYTES OF DATA TO BE USED ty Sus SECOND PART OF THE IDCB, BOSIOR. GAG as De oa Vaeqeen ee eae ee ce ONE 
1430 a , Xx TO SELECT LEVEL 2 FOR AN INTERRUPT. 3031be 0090 1608 Be a {e-s NOT USED. 
+* CALLING SEQU = IN ADDRESS 
1igees ee goatEs 9996 io = Ber o00bs BYTE cout 
+* MDI=oeTU 0 = = ' DDR OF SECTOR ID DATA 
14384 XX ,T7800 ,2,0708, EQ, PLNG=6, PRAM=FFXXXX 1612 +4404 READ a a Sch: Maxey 
#* RETURN CONTROL 
ie guuiey 330 dei Banco be zizagse sy ics 2 
+ B TURTN* t ZT USED 
12024% EELUAN AO Mod SUPER VT Soe 0031E8 0000 1616 DC X'0000! 0-7 = PHYSICAL SECTOR # MINUS ONE 
1503 2 OGIO IGG GIGI IGG GOR IGG GIR gio a Ck ake ak ako QO31EA 0000 1617 DC X'0000! NOT USED 
003124 6FOD 3114 1504+T7800 MVW R7,TURTN SAVE RETURN ADDRESS QO31EC 0000 1618 DC X'0000! NOT USED 
DOat ze (doy song 12028 va X17800 + , STUID Se LD BO Cine aoe es 0031FO 0006 1620 DE = ¥ 80006" BYTE COUNT FOR READ SECTOP I 
+ MVA  OPTN1,R . REA OP ID 
13074 ' See De POPE ene ae O031F2 3054 1621 DC A (SCTID) SECTOR ID DATA ADDRESS 
003132 4724 340E 1508 MVA  INTBL,R7 SET R7 TO CONTROL BLOCK AND LS eel 
003136 6014 1509 SVC. CICR * CONNECT If TO THIS DEVICE 1623 % 
003138 4020 30DE 0708 1510 MVWI xX'0708',SIOIN INIT THE CONDITION CODES 1620 pote EAD EC TOR AD: PRMERT ATE 0Ce: eee eee 
MVW TUPARN1,R1 
003142 8118 3192 1512 MVB (R1)+,T3COOT = AND SET IN FUNCTION-MODIFIER OOS TEA. aoe poco RrDeR Oe, (ede. READ SECTOR ID 
003146 8028 19D0 3193 1513 MVB DEVADS,T3COOI+1 * FOLLOWED BY THF DEVICE ADRS OOS Lee. Oo n8 167) =) Sm NOT USED 
00314c 8118 3194 1514 MVB «(R19 +, £3C00I+2 * AND SET IN EVEN BYTE DATA pe a a 1628 DC X10000 ' NOT USED 
903150 8118 3195 1515 MVE {ri} + 3coors3 * AND SET IN ODD BYTE DATA Bas tec! lobe eae ae Scout Nore tae 
MVD 3cbof ,P0 
a ea ee eis i sta i ee a aaa ae ane ee aaah eee 
Io T3COOTI ISSUE THE I/0 CO TE COUNT FOR PEAD SECTOR ID 
00315C 70AE 1519 DC X'7OAF! * GET THE 70 CONDITION CODE IN RS 003202 3054 1633 DC A(SCTID) SECTOR ID DATA ADDRESS 
00315E 356A 1520 SRL 13,R5 POSITION CC’ IN THE RESULTS FIELD foot 
003160 C528 30DE 1521 MVB  k5/$IOIN * AND SAVE IT IN THE RESULTS 1635 * 
003164 3062 1522 SPL 12,R0 * AND POSITION IT IN THE REG TO 1636 ***** SEEK DCE ****eEEX 
003166 100D 1523 JZ T3C00S * SEND BACK THE PUSLTS IF READ DPC 1637 * 
003168 F002 1524 CBI xX'02',RO IS IT A READ STATUS 003204 0005 1638 SKDCB DC X'0005' SEEK DCE 
OO316A 1807 1525 JNE T3COON * NO CONTINUE TO CHECK 003206 0000 1639 DC X'00008 BIT 0O-3=0; BITY=DIKECTION;5-15=DIFFER 
00316C 6A08 3194 1526 MVH T3COOI+2,R2 * yES, GET ID PECETVED AND 003208 0000 1640 DC EO! 
BO31Ty CAOD 18a 1236 Ree ee a urebr Seer an es rouse te wae? 80330¢ 0000 1642 Dc «x "90008 0-7 = HEAD;8-15 NOT USED 
R2, TURESUL+ =] = 78 
aE ee 1323 wscoon der $3598%s0 en eee ncaa EEE eee. Sea poet Nopaeee 
T3COON CBI X'01',RO TS 
00317C 1002 1531 JE T3c008 + YES, SEND RESULTS TO ADT 003212 0000 1645 DC Fro' NOT USED 
00317E FOOF 1532 CRI xX'OF',RO * Ir ff TS A READ ID FUNCTION 1646 * 
003180 1803 1533 | INE  3C00 * NO, GO TO EXIT 1647 #**4* CYCLE STEAL STATUS DCB **##4#%+ 
003182 8828 3194 18CA 1535 T3CO0S MVW T3CO00I#2,TURESUL+2 SENT BACK DATA RECFIVE 003214 2000 1649 CSDCB DC X'2000' CONTROL WORD 
003188 8828 30DE 18C8 1536 T3COOX MVW $IOIN,TURESUL PUT ANY INTR COND CODE FOUND IN_ 903216 0000 1650 DC Prot NOT USED 
00318E 6802 34A4 1538+ B SCONX RETURN TO MDI CONTROLLER 0032Z1A 0000 1652 DC Ftor NOT USED 
15304 ORIG III ISI IGG IOC IGOR GIG GIG i actokaok 00321C 0000 1653 DC EO? NOT USED 
gar"? ay ieee i & how wait 
1541 * IDCB FOP DIRECT PROGRAM CO WOPDS OF STATS 
sande Ate 1542 * = A RTEOG One nNy 003222 30FC 1658 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
T 3 age X'0000! -! - 
983132 9808 ee Fey EQUCETONSMODEETERSDEYICE ADDPESS 1g88 ievee wine pcp steexenens 
COPY 178 
1eue @IA0E Gore ae Davee LS 003224 0001 1660 WRDCB DC  x*Q001" WRITE CONTROL WORD 
15074 3 RO RO I IOI I aio tag igk ia io tok 0 6 F BB] 6 * 003226 0000 1661 DC FO NOT USED 
124 04% 003228 0000 1662 DC ¥'0000! 0-7=0;8-15 = FLAG BYTE 
1549+* TEST UNIT 00322A 0000 1663 DC x¥'0000" SFRCH' ARGUMENT CYLINDER 
ee he 00399& 0000 1665 DER (EH) CHATN ADDPESS os 
+ DELA = 
1ee28% P SOUNTES: Ae SEG) Wen 76 003230 0000 1666 DC —sFFt BYTE COUNT 
1553+% PURPOSE 003232 0000 1667 DC Rh (*-*) WRITE DATA ADDRESS 
+* 
15 55+* TO DELAY WHILE THE DEVICE TS DOING A PREVIOUS PEQUESTED FUNCTION og se eee: | er 
: 003234 200C 1671 VRDCB DC X'200C! CONTPOL WORD 
oop O26) poee ge ee tea ae 
* -7=03;8-15 = FLAG BYTE 
1559 +* NO TUPESULTS ARE PASSED BACK TO MDI. 903334 0000 1674 Be 119000: CYLINDER : 
1561+* RETUR ~ , SECTO 
i a 333343 9909 1p Be NG) pyre coun 
1563+* * ZT 
aceile = ean PET PON OEE SUP eRe eon 003242 0000 1678 DC A (*-*) VERIFY DATA ADDRESS 
15 65 4 RR IO IO I I I RIOR I IOI CIO III I 3K 1.6.79. 
003196 6FOD 3114 1566+T7805 MVW R7,TURTN SAVE RETURN ADDRESS Oo ee eee en Seer 
OestaeO: nok Sere” eeae oa X17805" , STUID SAVE TU ID FOR DISPLAY 003244 2009 1682 PDDCE DC x¥"2009! PEAD DCB CONTROL WORD 
+ : 
1569+* ieee: ee ME RO ae ener aaa te 003246 0000 1683 DCO sSéF YQ? NOT USED 
0031A4 CA25 18C8 1570 MVWZ TURESUL,R2 CLEAR TU RESULTS WORD 003248 0000 1684 DC x'0000' 0-7=0,8-15 = FLAG BYTE 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00324A 0000 1685 DC X'0000! SEARCH ARGUMENT CYLINDER 1800+* THE I/O COMMAND. 
00324C 0101 1686 Dc X'0101' SFARCH AEGUMENT H-R 18014+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
00324E 0000 1687 DC A (*-*) CHAIN ADDRESS 18024+* ISSUED BY THIS SUBROUTINE. 
003250 0000 1688 DC Ffor BYTE COUNT 1803+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
003252 0000 1689 pc A (*-*) READ DATA ADDRESS 1804+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1690 * 1805+* YW. PRESETS THE INTERRUPT INDICATOR AND CHECKS FOP ANY INTERRUPT 
1691 **** WRITE SECTOR ID SKEWED eA ae Xe 1806+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
1692 * 1807+* MYSTERY INTEFRUPT (MI) CONTROL BIT IS SET. 
003254 0003 1693 WKDCB DC x'0003' CONTROL WORD 1808+* 5. MOVES THE ADDRESS OF THE T/0 CONTROL BLOCK IN 87, SET THE 
003256 0000 1694 pc X¥*0000! NOT USED 1809+* EXPECTED INTERRUPT CONTROL PIT AND ISSUE THE 'SVC  STARTY. 
003258 0000 1695 pc A (*®-* 0-7 = PHYSICAL SECTOR # MINUS ONE 18104+* 6. WHEN THE SUPVR PETUPNS AFTER ISSUING THE I/O COMMAND, TIMING 
003254 0000 1696 DC A (*—* NOT USED 1811+ STARTS TO DETERMINE A LOST INTERRUPT. 
00325c 0000 1697 pc A (*-% NOT USED 1812+* 7. FXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
00325E 0000 1698 DC A *—* CHAIN ADDRESS 1813+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
003260 0006 1699 pc X'oo0st BYTE COUNT 1814+ 8. CHECK IF THEPE WAS A WRONG INTERRUPT LEVEL. 
003262 329A 1700 DC A (WRSID) ADDR OF SECTOR ID DATA 1815+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
1701 * 1816+* 10. CHECK IF THEPE WAS AN ERROR CONDITION, IF NOT RETURN. 
1702 **** READ SECTOR ID SKEWED Ke 1817+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1703 * 18184+* 12. CHECK TF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
003264 2008 1704 RKDCB DC X*200B! CONTROL WORD 1819+* ISSUED BY THIS SUBROUTINE. 
003266 0000 1705 pc x'Q0000! NOT USED 1820+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
003268 0000 1706 pc X'00008 O-7 = PHYSICAL SECTOR # MINUS ONE 1821+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
00326A 0000 1707 pc X¥'o000!? NOT USED 1822+% COUNT IT AND SET UP THE PROPER ERPOR MESSAGE TO BE PRINTED. 
00326C 0000 1708 pc x*'o0000! NOT USED 1823+* 
00326E 0000 1709 DC ce bed | CHAIN ADDRESS 1824+* CALLING SEQUENCE 
003270 0006 1710 Dc X¥"0006! BYTE COUNT FOR PEAD SECTOR ID 1825+* 
003272 3084 a ‘ DC A (SCTID) SECTOR ID DATA ADDRESS oe THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1713 * CONSTANTS AND DEFINED STORAGE LOCATIONS 1828+* --> BAL XTO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
003274 0000 1714 ZEROO DC Xx*0000' CONSTANT ZERO 18294+* --> BAL X1IO1 MOD PARM PRELOADED IN *1OMOD! 
003276 0001 1715 ONE1 DC X'O0001' CONSTANT ONE 1830+* --> BAL XIOCS ,P6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
003278 00000000 1716 TIMEOUT DC 7A | TIMEOUT COUNTER 1831+* -—> BAL XIOCS—4 ,P6 AUTO CS STATUS {FOLT OWING OTHER XIO 
00327C 0000 1717 TONE DC x¥* 0000 CONSTANT FOR ADD DOUBLE 1832+%* : AND DOES NOT POST INTERRUPT STATUS) 
00327E 0001 1718 DC X¥'0001' * 1833+* 
003280 0500 1719 COUNT DC F'1280! BYTE COUNT (1280) 1834+* PFTURN CONTROL 
003282 0000 1720 DIFF DC A (*-* SEEK DIFFERENCE 1835+* 
003284 0000 1721 XXX DC A (*-* WORK WOPD INT TO ZERO 1836+* BXS R6,2) RETURN TO USER NO ERROR 
003286 0000 1722 BCNT DC x'0000! BYTE COUNT 1837+* OR B * RETURN AND RETRY ON EPROR 
003288 0000 1723 JOE DC A (*-* WRITE PARAMETER POINTER 183 Ba Ro aK OR I ICICI OR II I I IIR RR RII CR I HK ok 
00328A 0000 1724 JOE1 DC A (aaa) SAVE LOC FOR PARM LIST ADDRESS 003304 CB25 3408 1840+XIO MVWZ IOMOD,RF3 SET MOF OF O FOR CYCLE STEAL OP 
00328C DEB6 1725 WDATA DC X "DERG? WRITE DATA 003308 500A 1841+ J XIO1 CS I/O'S ARE NOT RETRIED 
00328E S6BED 1726 DC X"*6BED!® * 1842+* 
003290 0000 1727 TABLE DC ier) ADDR OF WRT PAR LIST FOR FORMAT RTINS 00330A 4CAA 1843+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
003292 0000 1728 LGSEC DC X'0000' LOGICAL SECTOR # 00330C 4c68 1844+ TBTS R4Y,CcSs SET "CYCLE STEAL STATUS" IN PROGRESS 
003294 0000 1729 PHYSC DC x'oooo! CONVERTED PHYSICAL SEC # 00330E 4020 3406 3214 18454+XIOCS HVA SpcéB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
003296 1D00 1730 CB29 DC X¥*1D00° CONSTANT BYTE 29 003314 4020 3408 OOOF 1846+ MVWI xX'OOOfT, TOMOD SET CYCLE STEAL MODIFIER 
003298 3B00 1731 FIVE9 Dc X¥'3BR008 CONSTANT BYTE 59 00331A 4C28 1847+ TRT sie CS) IS CS IN PROGRESS, ERROR CONDITION 
003294 0000 1732 WRSID DC X'0000! FLAG,CYLINDER (WRT SECTOR ID DATA) 00331C 1213 1848+ JON To2 * YES, BYPASS SAVING I/O ADRS 
00329C 0000 1733 DC x'0000! CYLINDER, HEAD 00331E 6E0D 30E2 18494+xXI01 MVW R6,LSTIO SAVE LAR FOR RETRY IF REQUESTED 
00329E 0000 1734 pc X¥'00008 LOG SECTOR,NOT USED 003322 4324 30EC 1850+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
0032A0 OOFF 1735 CDAT DC X'OOFF® INVALID DATA CONSTANT 0033256 6D08 3406 1851+ MVW IODCB, * AND THE FROM ADRS, ALONG WITH 
0032A2 FF34 1736 WSIDT DC X'FF3G! WRITE SECTOR ID TEST DATA 00332A OF10 1852+ MVBI 16,R7 * THE NUMBER OF MO 
0032A4 5678 1737 DC X¥'56788 * 00332C 2D64 1853+ MVFEN (R5) (R3) MOVE 1 STATUS WORD AND ADJUST 
0032A6 9A00 1738 DC X'9A008 rs | 00332E OBFF 1854+ MVBI 255,83 CLEAR CYCLE STATUS BUFFER 
0032A8 0000 1739 SCTST DC x*0000' READ SECTOR ID TEST DATA BUFFER | 003330 4524 30FC 1855+ MVA CSBOF,85 * TO ALL ONES * 
0032AA 0000 1740 pc X¥'o0000' 003334 OF10 1856+ MVBI 16,R7 * 
0032AC 0000 1741 DC X'ooo0ot * 003336 2BAC 1857+ FFN R3 ay * 
0032AE 0000 1742 CTRO1 DC X'O000' COUNTER 003338 4020 30DE 0708 1858+ MVWI x'6708 ,SLOIN OVERLAY OLD CONDITION CODES 
0032B0 0000 1743 CTRO2 DC x'O0000!8 COUNTER 00333E CB25 30E0 1859+ MVWZ SISB,R3 ZERO OUT OLD ISB VALUE 
0032B2 0000 1744 CTRO3 DC x*'O00008 COUNTER 1860+* 
0032B4 0000 1745 CTROU DC X'90000' COUNTER 003342 4CA1 1861+ TBTR R4,ER RESET ANY EPROP BEFORE I/O COMMAND 
003286 0000 1746 CTROS DC X*'O00008 COUNTER 003344 4CA3 1862+XIO2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
0032B8 0000 1747 CTROG DC X'O0000! COUNTER 0033465 4724 3402 1863+ MVA OBLK,R7 SET UP CONTROL BLOCK FOR SUPVP 
0032BA 0000 1748 SAVR3 DC x¥'00008 SAVE AREA OO334A 4CA6 18644 TBTR RY, SLE) RESET LEVEL ERROR INDICATOR 
0032BC 0000 1749 SAVR5 DC x'00008 SAVE AREA 00334C 4c62 1865+ TBTS RY, XI) SET EXPECTED INTR CONTROL BIT 
0032BE 0000 1750 WR2 DC Xx'O0000! 00334E 600A 1866+ SVC TART CALL SUPVR FOR I/0 COMMAND 
0032C0 0000 1751 SVSEK DC xX'0000! 1867+* 
0032c2 0000 1752 Lc? DC x¥'0000! 003350 4CAT 1868+ TBTR R4,NT) IS AN INTR EXPECTED 
0032cu 0000 1753 TS6AA DC x¥'0000! 003352 6ACO 0002 1869+ BN R6,2) * NO, PETURN TO USER 
0032c6 0000 1754 TS6BB DC xX¥'0000! 1870+* 
0032Cc8 0000 1755 T56CC DC X'0000! 1871+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
0032CA 0000 1756 T56DD DC x'0000' 1872+* 
0032cCc 0000 1757 TS6EE DC ¥'0000! 003356 Opo0od 1873+ MVBI xX*00',P5 SET UP WORK REG FOR ‘LOST INTR* 
0032CE 0000 1758 TS6FF DC x*9000! 003358 4CA3 1874+XI0O8 TBTR {Re tf) HAS INTERFUPT BEEN RECEIVED 
0032D0 0000 1759 T56GG DC X'0000! 00335A 1238 1875+ JON Tock * YES, CHECK TF ALL WAS SATISFACTORY 
0032D2 0000 1760 T86AA DC X'0000° 00335c 6002 1876+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0032D4 0000 1761 TS86BB DC X¥'0000' 1877+* SUPVR WILL RETURN HERE 
0032D6 0000 1762 T86CC DC X¥'0000' 00335E 7DA1 0001 1878+ AWI 1,85 ADVANCE TIME OUT COUNT 
0032D8 0000 1763 T86EDD DC x'o000°8 003362 18FA 1879+ INZ xfo8 RCH IF. TIME OUT NOT REACHED 
0032DA 0000 1764 TSE6EE DC X'0000! 003364 4Cc61 1880+ TBTS ine ER) SET ON ERROR CONTROL BIT 
0032DC 0000 1765 TS86FF DC X¥'*0000' 003366 68D2 0000 1881+ B R64 * ERR 'NO INTERRUPT? 
0032DE 0000 1766 T86GG DC X*o000! 1 BBS tH RHR RK KH KK KK RK OR RRO RIOR IO IOI Rr Im KR atk OE KD) BP EB 7 6X 
0032FO 0000 1767 T41D DC X¥'0000! 1884+* 
0032E2 0000 1768 T41LP DC X¥'0000! 1885+* SUBROUTINE 
0032E4 0000 1769 WRLCT DC X'0000! 18864+* 
0032E6 0000 1770 CYLOC DC x*'o00008 1887+* I/O EXECUTE ERROR HANDLING ROUTINE 
0032E8 0000 1771 PASS1 DC A (*-* 1888+* 
0032EA 0000 1772 HEADO pC A (*-* 1889+* PURPOSE 
0032EC 0000 1773 HEAD1 DC A (*-* 1890+* 
0032EE 0000 1774 GDSEO DC A (*-* 18914+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
0032F0 0000 1775 GDSE1 DC A (k= * 1892+* PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
0032F2 0000 1776 EFROO pC A (*—* 18934+* SUPERVISOR AND If WAS NOT ACCEPTED. 
0032F4 0000 1777 ERO1 DC A (*-* 1894+* 
0032F6 0000 1778 HDOSV DC A (*—* 1895+* CALLING SEQUENCE 
0032F8 0000 1779 HDISV DC A (*-* 189 6+* 
0032FA 0000 1780 EROSV DC A (*#—-* 189 7+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
0032FC 0000 1781 ER1SV DC A (*-* 1898+* 
0032FE 0000 1782 PATTR DC A (*-* 1899+* RETURN CONTROL 
003300 0000 1783 CECYL DC A (*-* 1900+* 
003302 0000 ace STATS DC A (*-* NE ae B (R6) * RETURN TO USERS ERROR HANDLER 
1787 XEQIT O1DEC76 190 3 RK RK RK KK KR KR OK RRR IRR Ro OK ROR tok moO OR ROR i iii kk kok ok tok sok go ok 
1TEBFEEKEKEKK MM He HH He He ee ee eK he te 2k hk ee kek ak kk ok teak ok ok dok kk kK DO JIL 76 ** 1904+* 
1789+* 19054#* CC O= DEVICE NOT ATTACHED 
1790+* SUB-ROUTINE 1906+* FOR 1= DEVICE BUSY 
17914+* 1907+* I/O 2= DEVICE BUSY AFTER RESET 
1792+* EXECUTE INPUT AND OUTPUT COMMANDS 1908+* 3= COMMAND REJECT 
1793+4+* 1909+* 4= INTERVENTION REQUIRED 
1794+* PURPOSE 1910+* 5= INTERFACE DATA CHECK 
17954* 1911+* 6= CONTROLLER BUSY 
17196+* TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE. 1912+* 7= I/O COMMAND EXCEPTED 
1797+4+* THIS SUBROUTINE WILL DO THF FOLLOWING FUNCTIONS: 1913+* 
1798+* 00336A 706E 19144+XIOER DC X"*706E* COPY STATUS ANY LEVEL INTO R3 
1799+ 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 00336C 336A 1915+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00336E C328 30DE 1916+ MVB R3,$IOIN * PUT IN LOG OUT AREA 0033E6 C520 30DF 2033+ MVB SIOIN+1,R5 GET LAST INTK CC CODE 
003372 68D2 0000 1917+ B RG) * RETURN TO USER ERROR HANDLEP OO33EA F502 2034+ CBI Zee 5 IS THIS CC=2 
19194 7% I GO RG RoR oi gigok doi dotkokdok 7A PR 76 x OO33EC 68D1 0000 2035+ BNE (26) * * NO, BCH TO ERROR HANDLER 
1920+* TL 0033F0 C520 30E0 2036+XIOCO MVB ISB,R5 GET LAST ISB DATA BYTE AND IF CS 
1921+* SUB-ROUTINE IL 0033F4 6A00 330A 2037+ BN xtoc§-4 * AVATLABLE, GO AND GET IT 
1922+% IL 0033F8 68D2 0000 2038+ B (ne) s ERROR 
1923+* EFPCR INTERRUPT RUNS ON INTEFPUPT LEVEL "$TNTL! TE 0033FC CB25 30DA 2039+XIOCX MVWZ OPTN3,FP3 CLEAR OUT OPTION 3 CNTL BITS 
19244* IL 002400 5601 2040+ BXS (26,24 PETURN TO USER VIA PEG 6 
1925+* PURPOSE TL 20414+* 
1926+* IL 2042+* T/0 PARAMETER LIST 
1927+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERPOR’ IL 2043+ 
1928+* OR THE INTEPRUPTING CONDITTON CODE DOES NOT AGPEFE WITH THF TL 003402 19D0 2044*TOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1929+* EXPECTED CODE. sme 003404 336A 2045+ DC A (XTOER) ERROR ROUTINE ADRS 
1930+* TL 003406 0000 2046+IODCB DC A (*-* DCB ADPFS OR LEVEL & INTR 
1931+* CALLING SEQUENCE TL 003408 0000 2047+IOMOD DC A (*-—* MODIFIEP 
1932+* TL 00340A 0000 2048+ DC A (*-* ADRS OF LAST SVC CALL 
122i SUPVR WILL ENTER WHEN AN EPROR OCCURS ON AN I/O INTERRUPT TY, 00340C 0000 a ee as DC A (*-* SECOND WORD OF LAST IDCB 
Pi TL 
13988 RETURN CONTROL TL gnaiet INTEPRUPT CONTROL BLOCK FOP I/O COMMANDS 
+ IL 4 
1937+* SVC EXIT RETUPN TO USEP VIA SUPVR IL OO340E 19D0 2053+INTBL DC veneer ADPS OF DEVICE ADRS 
1938+* IL 003410 339A 2054+ DC A (INTOK INTEPFOPT OK RETURN ADRS 
193 Ot He oe 2 OI IG III III IOI IO OR OR ao iti tok dk T 7 003412 3376 2055+ DC A (INTER INTEFRUPT ERROR ADRS 
1940+* IL 003414 0003 2056+INTCC DC X¥'0003! INTERRUPT CODE FXPECTED 
19414+* CC O= CONTROLLER END ISB = ADD STATUS TL 20 5 Be HH HH HR HO RR FI FO RR ROR ROR RO kk a tk tote tk TT MAY 76 * 
1942+* FOR 1= PROGRAM CONTROL INTERPUPT BITS = COMD PEJECT II 2059+* 
1943+* INTR 2= EXCEPTION INTERRUPT FOR = INCOR LENGTH IL 2060+* SUBPOUTINE 
1944+* 3= DEVICE END INTERRUPT INTR = DCB SPEC CK IL 2061+* 
1945+* Y= ATTENTION INTERRUPT W= STG DATA CK IL 2062+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1946+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 2063+* 
1947+* 6= ATTENTION / EXCEPTION INTP 6= PROTPCT CK sig 2064+* PURPOSE 
1948+ 7= ATTENTION / DEVICE END INTR = I-FACE DATA TL 2065+* 
1949+* TL 2066+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003376 T7QO6E 1950+INTER DC X'706E! COPY STATUS ANY LEVEL INTO R3 IL 2067+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
003378 336A 1951+ SRL 13,R3 POSITION INDICATORS IN R3 ae 2068+* TO INTERPUPT. 
00337A 4424 30D6 1952+ MVA OPtN1,P4 SET UP BASE ADPS TL 2069+* 
00337E 4C28 1953+ TBT {Re c$) IS CS IN FROGRESS TL 2070+* CALLING SEQUENCE 
003380 1006 1954+ JOFF iIntés *" NO TL Z071+* 
003382 4C6A 1955+ TBTS RY Cz) TUPN ON CYCLE STEAL INTER ERROR TL 2072+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003384 6F0D 310A 1956+ MVW 7,CSTL8 SAVE CS EPR ISB VALUE, BITS 0-7 TL 2073+* 
003388 C328 310B 1957+ MVB R3,CSTL8+1 * AND THE COND CODE IL 2074+* --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT T/0O BLK 
00338C 500A 1958+ J INTR1 ae 2075+* --> BAL SCONP,R6 PREPARF DEVICE ONLY, ALREADY CONNECT 
00338E 4c24 1959+INTES TBT {Ra XE) TEST EXPECTED ATTEN / ERPOP IND TL 2076+* 
003390 1002 1960+ JOFF nrft BCH IF NOT EXPECTED TL 2077+* RETURN CONTROL 
003392 F304 1961+ CBI 4,3 IS THIS AN "ATTENTION! INTR TL 2078+* 
003394 1006 1962+ JE THTRI1 * YES, BCH TO END INTP SEQUENCE oF 2079+* BXS (re 2) RETURN TO USER VIA REG 6 IF OKAY 
003396 4c61 1963+INTET TBTS {Ra ER) SET FPROR ON I/O COMMAND CNTL BIT IL 2080+* OP 8B R6{ * IF THE DEVICE COULD NOT BE CONNFCTED 
003398 5004 1964+ J nth TL 2081+ 
19654* THE FRROR INTEPRUPT USES THE SAME IL 20 82 + 8 FR III I RIOR III OR III I IOI IOI a tk 
19664+* ENDING SEQUENCF AS THE NORMAL INTR IL 903416 OFO06 2083+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
1 9G BF RI OR RRR III tt $I TAPP 76 TT 903418 0OBO00 2084+ MVBT 0,R3 * AND THE DATA TO USE 
1969+* rT. 00341A 4524 30E4 2085+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
1970+* SOUBROUTINE IL 00341E 2BAC 2086+ FFN R3 (85) * 
1971+* TL 003420 CB25 30DA 2087+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW POUTINE 
1972+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL® TL 003424 4724 3118 2088+ MVA SVCAL,R7 SET UP TO REQUEST DCP SUPP DISK 
1973+ TL 003428 6016 2089+ SVC REQSD % 
19744+* PURPOSE TL 003428 OFFF 2090+ MVBI -1,P7 SET UP DELAY FOP IBIS 
1975+* IL 00342C BFFF 2091+ Jct # 27 * AND DECREMENT IT DOWN 
1976+* TO CHECK THE INTERRUET AND CONTINUE THE TEST TL QOO342E 4724 340E 2092+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
19774+% TL 003432 6014 2093+ SVC CICB * CONNECT IT TO THIS DEVICE 
1978+ CALLING SEQUENCE a 003434  6AD0O 0000 ances BN (R6) * ERROR RETURN TO USER 
+ 
1980+* SUPERVISOR WILL ENTER HERE IF INTP CC IS AS REQUESE ED TL 003438 8828 3112 3406 2096+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTP PAPAMETER 
19814+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS POUTINE IL OO343E 4724 3402 2097+ MVA IOBLK, R7 SET R7 TO CONTPOL BLOCK TO PREPAPE 
1982+* AFTER THE SPECIAL PAPT HAS BEEN COMPLETED AND THE Th 003442 4020 30DE 0708 2098+ MVWI xX'0708',$IOIN INITIALIZE CONDITION CODE STORAGE 
1983+* COMMON SECTION IS HANDLED HERE. TL 003448 CB25 30E0 2099+ MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 
1984+* TL 00344C 6EF0D 30E2 2190+ MVW P6,LSTIO SET UP ADDPESS THAT STARTED LAST I/0 
1985+* RETURN CONTROL TL 003450 600C 2101+ SVC PREP * AND CALL ON SUPVP 
1986+* TE 003452 5601 2102+ BXS (R6,2) RETURN TO USER 
1987+* SVC EXIT PETUPN TO USER VIA SUPVR TL 2.100 4 ok aa a GIG IGG GOI GG ob EEK 6 ADR 764 
1388+* se 2105+* 
19 BO + HH HK HK HH HK IR RR IO OR IIR ko Rk tok ko T 21064* SUBROUTINE 
00339A 706E 1990+INTIOK DC X"706E? COPY STATUS ANY LEVEL INTO RB3 TL 219 7+* 
00339C 336A 1991+ SRL 13,R POSITION INDICATORS IN R3 TL 2108+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
00339E 4424 30D6 1992+ MVA OPfN1,R4 SET UP BASE ADRS TL 2109+* 
003342 4C63 1993+INTR1 TBTS R4y,1f SET INTERRUPT RECEIVED IL 2110+* PURPOSE 
0033A4 4C28 1994+ TBT R4,CS IS *CS IN PPOGPESS' ON IL 2111+* 
0033A6 1204 1995+ JON nth? * YES, BCH AROUND UPDATE TL 2112+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
0033A8 C328 30DF 1996+ MVB R3,SIOIN+1 SAVF INTERRUPTING CC CODE IL 2113+* SET THE 'NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 
0033AC 6FOD 3050 1997+ MVW R7,S1SB SAVE INTR STATUS AND DEV ADRS TL 2114+ BEEN FOUND TO HELP THE OPFPRATOR DEFINE THE ERROR CONDITION. 
0033B0 1998+INTR2 EQU * TL 2115+4+* 
1999+* CPCL R5 CURRENT LEVEL COPIED BY DCP TL 2116+* CALLING SEQUENCE 
0033B0 3521 2000+ SLL 4 ,R5 POSITION INTR LEVEL AND PUT IL 2117+* 
0033B2 0501 2001+ ABI 1,-R5 * IN "Tt PIT TL 2118+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIFS: 
0033B4 CD24 3112 2002+ CW SINTL,RS IS THIS THE CORRECT INTR LEVEL TL 2119+* 
0033B8 1002 2003+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 2120+* --> B DERRS SET 'NG*' BIT AND CONVERT DATA TO LOG 
0033BA 4C66 2004+ TBTS RY, SLE) SET INTR LEVEL ERROP CONTROL BIT TL ZI2Z1t® ==> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
0033BC 4Ccé61 2005+ TBTS (R4,ER SET ERROR ON T/O COMMAND CNTL BIT IL 2122+* 
0033BE 4CA2 20064+INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED TL 2123+* RETUFN CONTROL 
0033CO0 1204 20074 JON NT RX * YES, EXIT OFF THIS INTR LEVEL TL 2124+% 
0033C2 4C60 2008+ TBTS {Fe MI) * NO, SET MYSTERY INTR CONTROL BIT IL 2125+* B TURTN* RETURN TO MDI 
0033C4 F304 20094 CBI R3 ATTENTION INTERRUPT? ne 2126+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
0033C6 1001 20104 JE TATRX YES TL 2127+* 
0033C8 “CGC 2011+ TBTS et NG) ERROR,UNEXPFCTED INTERRUPT TL 212 BH HK RK HK HH HK He HH KK OR RR OR kK dr kK RK Sok kok i to kk i RR kkk ok kok teak kia ag agai ake age ak afar ac ae a ag 
0033CA 6006 2012+INTRX SVC xr EXIT THIS LEVEL VIA SUPVR TO PGM IL 003454 4020 1818 8000 2129+SERRS MVWI X'8000' ,TUSTATUS SET ON 'NO GOOD! STATUS BIT 
201 Ut 4 ee RII III IO IOI I SII I III II RI IO 9K 8 90K BF EBT 6 *¥ O0O0345A 4724 35CA 2130+ MVA HERLK,R4 GET ADRS OF CONTROL BLOCK 
2015+* 00345E 601A 2131+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
29 164% THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 003460 OD03 2132+$PRNT MVBI 3,R5 
2017+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 003462 4324 181A 2133+ MVA TOWORK,R3 SET UP RUFFER STORAGE 
2018+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003466 6BO0D 35C2 21344 MVW =«-R3,, BUF PT 
20194+* 00346A 4124 34F2 2135+ MVA  LINE1,R1 
7020+* OO346E OFOY 2136+ MVBI 4,R7 
0033cC 4caA4 2021+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 003470 OEFOS8 2137+ MVBI 8,P6 
0033CE 6ACO 0002 2022+ BN R6 ,2 * YES, EXIT THIS ROUTINE 003472 2B24 2138+MVBUF MVFN (R3), (R1) 
0033D2 4CAS8 2023+ TBTR (P4,CS) WAS Avo CS IN PROGRESS 003474 OFOY 2139+ NVBI 4 >R 
0033D4 1006 2024+4 JOFF TOCV NO, CONTINUE CHECKING 003476 OA4O 2140+ MVBI xX!'4O',P2 
0033D6 4C2A 2025+ TBT (Ru CE) 1s cS IN AN ERR CONDITION 003478 C258 2141+ MVB = R2 (Bye 
0033D8 1002 2026+ JOFF xto0co * NO, BCH O0O347A BEFB 2142+ JCT MVBUF,R6 
0033DA 68D2 0000 2027+ B R6) * cs ERROR 00347C OE£08 2143+ MVBI 8,P6 
0033DE 4c69 2028+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG OO347E 7921 002C 21444 AWI uh R14 
0033E0 5601 2029+ BYS RG, 2) GO TO USER 003482 BDF7 2145+ JcT MVBUF,RS5 
0033E2 4¢21 2030+XIOCV TBT R4,ER) WAS ERROR INTP CONTROL BIT ON 003484 4020 1802 FIFO 2146+ MVWI PIDMSG10 ,PID+2 
003324 100B 2031+ JOFF Tocx * NO, EXIT THIS ROUTINE OO348A 4020 19B8 35C8 21474 MVA FAKETU,@DCADD1 
5032+% 003490 4020 19BA 35c4 21484 MVA DC2PT,@DCADD2 
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CHANNEL INTERFACE TEST 


P/N= 4414132 
STMT SOURCE STATEMENT 


2149+ OWI BITO080,SUPSTAT 
2150+ MVA $TUID,P3 

2151+ BAL TUMSGATR*,R7 
21524+* 

2153+$CONX EQD * 

2154¢ ‘es MY¥B SCTID+1,SVCAL+3 
2155+ MVA SVCAL,R? 

2156+ SVC RELSD 

24574 MVB DEVADD,R7 
2158+ SVC RICB 

2159+ B TURTN* 

2160+* 

2161+BEGIN DC A (0007 

2162+ DC A 0008 

2163+ DC C'*x* ABORT! 
21644 DC R(0040) 

2165+ DC C'TUID IOIN ISB INST 
2166+ DC A (0040) 
2167+LINE1 DC ce 

2168+ DC K (0040) 

2169+ DC C'CNTL DCB2 DCB3 DCB4 
2170+ DC A (0040) 
2171+LINE2Z DC ce 

2172+ DC A (0040) 

2173+ DC C'RSTD CS-2 CS-3 CS-4 
217U4 DC K (0040) 
Q175+LINE3 DC c! 

21764+* 

2177+BUFPT DC A $= 4) 
24784+DC2PT DC A (BEGIN) 
2179+FIXTU DC X'0101! 
21804FAKETU DC xX*0101° 
2181+PIDMSG10 EQU  X'F1FOt 
2182+BIT0080 EQU xX'0080! 
2183+% 

218U+* 

21854+% 

2186+HEBLK DC 48) 

2187+ DC TUTD) 

2188+ DC eaeee ) 

2189 END 
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SET UP BUFFER STORAGE 
GO TO MESSAGE WRITER 


SETUP CURRENT CYLINDER NUM 
ADDR OF RELEASE PARM LIST 
RELEASE CONTROL 

GET DEVICE ADDRESS FROM MDI 


RELEASE INTERRUPT CONTROL BLOCK 
RETURN TO MDI SUPERVISOR 
NUMBER OF LINES TO PRINT 
LINE LENGTH = 8 CHAR 
LINE LENGTH = 40 CHAR 
DEV1 DEV2 DEV3 DEV4 ! 
LINE LENGTH = 40 CHAP 
LINE LENGTH = 40 CHAR 
DCB5 CHAD BYCT ADRS ! 
LINE LENGTH = 40 CHAR 
LINE LENGTH = 40 CHAR 
CS=5. CS=6 CS-7. CS-8 _! 
LINE 


LENGTH = 40 CHAR 


DATA CONTROL BLOCK FOP CONVERTING HEX TO EBCDIC 


NUMBER OF BYTES TO CONVERT 


FROM ADRS 


AND THE TO ADRS 
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-RO. 
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-R2. 
ake 


-R4, 


~Rk5. 
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wes 


SCONX 
SINTL 
SIOIN 
SISB 
$LE 
$TUID 
@DCADD1 
@DCADD2 
@FIXT 


aGOTO 
aNVLD 
@QUES 
@TU XX 


BEGIN 
BITO080 
BUFPT 
CE 
CICB 
CS 

CSA 
CSBUF 
CSDCB 
CSTL8 
DCBUF 
DC2PT 
DEVADD 
DEV1 
DUMMY 
ENTPT 
EQ 


EP 
EXIT 
FAKETU 
FOO0O14 


FO00039 
FO0048 
F00051 
F00070 
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2087 
1865 
1992 
2023 
2000 
2145 
2038 
1997 
2139 

) LENGTH (1) 

) LENGTH (2) 

) LENGTH (2) 

) LENGTH (2) 

) LENGTH (2) 

) LENGTH (1) 

) LENGTH (1) 
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S. HEX 
589 1112 


REFERENCES 


LOCATION (00002C8E) 
LOCATION (00002B3C) 
LOCATION (00002C2E) 
LOCATION (00002CEC) 
LOCATION (00002D4C) 
LOCATION (00002DAC) 
LOCATION (00002E22) 
LOCATION (00002582) 
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